home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503b.d64 / zauberschloss 2 (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  31KB  |  769 lines
  1. 1 REM +++ ZAUBERSCHLOSS - 2. TEIL +++
  2. 2 REM +++ EIN ADVENTURE VON       +++
  3. 3 REM +++ JOSEF BUSIN             +++
  4. 4 REM +++ SUDETENSTR. 37          +++
  5. 5 REM +++ 7321 ESCHENBACH         +++
  6. 6 REM +++ TEL.: 07161/42817       +++
  7. 8 REM +++ HAUPTPROGRAMM           +++
  8. 15 IFA=0THENA=1:LOAD"ZAUBER-SPRITES 2",8,1
  9. 20 DATA120,169,0,141,18,208,173,17,208,41,127,141,17,208,169,129,141,26
  10. 25 DATA208,169,91,160,3,141,20,3,140,21,3,88,96,173,25,208,141,25,208,41
  11. 30 DATA1,208,3,76,144,3,173,18,208,201,200,176,21,169,200,141,18,208,169
  12. 35 DATA4,160,0,141,32,208,140,33,208,104,168,104,170,104,64,169,0,141,18
  13. 40 DATA208,169,4,160,4,76,120,3,165,197,201,64,208,14,169,0,141,4,212,141
  14. 45 DATA5,212,141,6,212,76,49,234,141,1,212,73,255,141,0,212,169,15,141,24
  15. 50 DATA212,169,25,141,5,212,169,68,141,6,212,169,17,141,4,212,76,49,234
  16. 55 DATA120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
  17. 60 DATA133,89,169,224,133,91,32,191,163,169,55,133,1,88,96
  18. 65 DATA169,240,160,3,141,2,3,140,3,3,96,32,94,166,76,131,164
  19. 66 DATA162,0,160,0,138,133,251,169,216,133,252,138,145,251,200,208,251,232,230
  20. 67 DATA252,224,3,208,244,162,0,157,0,219,232,224,200,208,248,96
  21. 70 SYS58451:FORX=828TO1013:READA:A5=A5+A:POKEX,A:NEXT
  22. 72 FORX=704TO738:READA:A5=A5+A:POKEX,A:NEXT
  23. 73 IFA5<>26829THENPRINT"[147]FEHLER IN DATAS!":STOP
  24. 75 SYS963:POKE981,160:SYS963:POKE56576,PEEK(56576)AND252:POKE53272,8:POKE648,192
  25. 80 SYS828:SYS997
  26. 200 V=53248:POKEV+21,0:POKEV+29,0:POKEV+23,0:PRINTCHR$(142)CHR$(8)
  27. 215 PRINT"[147][149]":GOSUB25000
  28. 216 PRINT"[144][146]ZAUBERSCHLOSS - 2. TEIL"
  29. 217 PRINT"EIN ADVENTURE VON JOSEF BUSIN"
  30. 227 FORX=49152TO49352STEP11:POKEX,46:NEXTX:FORX=55296TO55496STEP11:POKEX,1:NEXTX
  31. 232 POKEV+21,3:POKE50168,192:POKE50169,192:POKEV,180:POKEV+1,177:POKEV+39,1
  32. 233 POKEV+27,3:POKEV+40,1:POKEV+29,3:FORX=1TO1000:NEXTX
  33. 234 FORX=177TO20STEP-1:POKEV,180+Z:Z=Z+.3:POKEV+1,X
  34. 235 POKEV+2,180-Z1:Z1=Z1+1.1:POKEV+3,X+1:FORY=0TO45:NEXTY:NEXTX
  35. 240 PRINT"[146][144]DIE GEISTER HABEN DAS SCHLOSS VERLASSEN.";
  36. 245 PRINT"IHRE STUNDE IST GEKOMMEN. TOETEN SIE DEN";
  37. 247 PRINT"ZAUBERER UND RETTEN SIE DAMIT ENDGUELTIG";
  38. 248 PRINT"DAS VOLK VOR DEM TYRANNEN.        "
  39. 250 GETA$:IFA$=""THEN250
  40. 255 PRINT"[147][158]"CHR$(14):PRINT"KENNEN SIE DIE SPIELREGELN (J/N) ?"
  41. 260 GETA$:IFA$=""THEN260
  42. 265 IFA$="J"THEN307
  43. 270 PRINT"[147][196]IESES [193]DVENTURE IST DIE [198]ORTSETZUNG"
  44. 272 PRINT"VON [218][193][213][194][197][210][211][195][200][204][207][211][211]."
  45. 274 PRINT"[207]BWOHL DER [218]AUBERER (HOFFENTLICH!) VON"
  46. 276 PRINT"[196]IR IN EINE [205]AUS VERWANDELT WURDE, IST"
  47. 278 PRINT"ER JETZT WIEDER ZURUECKGEKEHRT."
  48. 280 PRINT"[193]BERMALS WIRD ER VERSUCHEN, DAS [214]OLK ZU"
  49. 282 PRINT"UNTERJOCHEN. [193]LS [203]OENIG HAST [196]U DIE"
  50. 284 PRINT"[208]FLICHT, [196]EIN [214]OLK UND [196]EINEN [212]HRON VOR"
  51. 292 PRINT"DEM BOESEN [218]AUBERER ZU RETTEN."
  52. 296 PRINT"[198]OLGENDE [194]EFEHLE WERDEN AKZEPTIERT:"
  53. 297 GETA$:IFA$=""THEN297
  54. 298 PRINT"[147]"
  55. 299 PRINT"NIMM...VERLIERE...OEFFNE...ZERSCHLAGE.."
  56. 300 PRINT".BEKAEMPFE...TRINKE...ESSE...LESE..."
  57. 301 PRINT"BENUTZE...BESTECHE...SAGE...KUESSE..."
  58. 302 PRINT"FANGE...LIST"
  59. 305 GETA$:IFA$=""THEN305
  60. 307 PRINT"[147]"CHR$(142)
  61. 310 DATA,,,63,255,255,255,255,,,28,255,255,255,255,255,,,,128,193,255,255,255
  62. 320 DATA,,,96,243,255,255,255
  63. 330 FORX=0TO7:READA:POKE57344+X,A:NEXTX:FORX=0TO23:READA:POKE58032+X,A:NEXTX
  64. 340 DATA,,,1,3,3,3,3,60,126,255,255,255,255,24,24,,,,128,192,192,192,192
  65. 350 DATA3,3,3,3,1,,,,24,255,231,231,255,255,129,129,192,192,192,192,128,,,
  66. 360 DATA,,32,112,255,255,112,32,129,255,126,,255,255,,,,,4,14,255,255,14,4
  67. 400 FORX=0TO15:READA:POKE57584+X,A:NEXT:FORX=0TO55:READA:POKE57624+X,A:NEXT
  68. 900 GOTO1100
  69. 1010 PRINT"[147][151]":FORX=1TO10:PRINT"@[214][215][216]";:NEXTX
  70. 1020 FORX=1TO160:PRINT" ";:NEXTX:PRINT"[158]";
  71. 1030 FORX=1TO320:PRINT" ";:NEXTX
  72. 1035 POKEV+27,0:POKE50168,193:POKE50169,193
  73. 1040 POKEV+21,3:POKEV+39,0:POKEV,250:POKEV+1,150:POKEV+23,1:POKEV+29,1
  74. 1050 POKEV+40,0:POKEV+2,50:POKEV+3,120
  75. 1055 FORX=49152TO49370STEP11:POKEX,46:NEXTX
  76. 1060 FORX=55296TO55514STEP11:POKEX,1:NEXTX
  77. 1080 RETURN
  78. 1100 GOSUB1010
  79. 1105 IFNS=0ANDWO=0THEN1107
  80. 1106 GOTO1140
  81. 1107 IFFL=1THEN1140
  82. 1110 POKE50170,206:POKEV+21,7:POKEV+41,0:POKEV+4,180:POKEV+5,150
  83. 1120 PRINT"[146][144]DU BEFINDEST DICH IN EINER OEDEN GEGEND"
  84. 1130 PRINT"DU SIEHST EINE FLASCHE[145]":GOTO1150
  85. 1140 PRINT"[146][144]DU BEFINDEST DICH IN EINER OEDEN GEGEND"
  86. 1150 PRINT"MOEGLICHE RICHTUNGEN: N-S-W-O"
  87. 1160 INPUT"KOMMANDO";K$
  88. 1165 IFK$="N"THENNS=NS+1:GOTO1200
  89. 1170 IFK$="S"THENNS=NS-1:GOTO1200
  90. 1175 IFK$="W"THENWO=WO-1:GOTO1200
  91. 1180 IFK$="O"THENWO=WO+1:GOTO1200
  92. 1185 IFK$="NIMM FLASCHE"ANDNS=0ANDWO=0THENFL=1:POKEV+21,3:GOTO1200
  93. 1186 IFK$="OEFFNE FLASCHE"ANDFL=1THEN1195
  94. 1187 IFK$="VERLIERE FLASCHE"ANDFL=1THEN1197
  95. 1190 IFK$="ZERSCHLAGE FLASCHE"ANDFL=1THEN20000
  96. 1195 PRINT"[147]UNMOEGLICH!":FORX=1TO2000:NEXTX
  97. 1196 GOTO1100
  98. 1197 POKEV+21,0:PRINT"[147]DIE FLASCHE HAT SICH IN RAUCH AUFGE-"
  99. 1198 PRINT"LOEST.":PRINT"SOMIT IST DAS ABENTEUER ZUENDE, BEVOR ES";
  100. 1199 PRINT"ERST RICHTIG ANGEFANGEN HAT.":END
  101. 1200 GOTO1100
  102. 2100 POKE53269,0:POKE876,210:SYS828:POKE880,210:SYS828
  103. 2105 DIMF1(3,4,4),F2(3,4,4),B1(3,4,4),B2(3,4,4),G$(39),B$(14),A(11)
  104. 2110 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READF1(X1,X2,X3):NEXT:NEXT:NEXT
  105. 2112 DATA8,14,12,30,4,128,13,14,7,2,8,14,15,5,4097,1034,133,11,14,22,1,8,133,128,1
  106. 2115 DATA10,14,14,38,2,,11,13,15,5,9,15,30,15,4,10,13,13,15,38,137,8204,4,,5
  107. 2117 DATA130,8,12,6,2,25,12,14,12,16391,8,14,47,12,7,2,131,11,12,7,,1,2057,4,17
  108. 2120 DATA8,12,140,14,6,34,520,6,66,1,139,4,387,11,6,9,12,15,5,3,8,12,141,4,33
  109. 2125 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READF2(X1,X2,X3):NEXT:NEXT:NEXT
  110. 2130 DATA,32,,,,2,,,,,,,2048,,,,,,,,,1,,2,,,,,,,16,,,,4096,,,,,16,32,,,,,,,8,16
  111. 2135 DATA,,,32,,,,,,512,,,,,,64,,,,,,1024,4,,,,,256,,,,,,128,,64,,,,,,,,,,,16,,,,
  112. 2140 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READB1(X1,X2,X3):NEXT:NEXT:NEXT
  113. 2145 DATA1024,,,,,,,,,1,4,,,,,,,8,,,,4,,,4096,,,,,512,,,,,,,,,,,,,,,,,,,,,256
  114. 2150 DATA,,128,2,,,,,,512,,,,,8192,,,,,,4,,16384,,16,,,,2048,,,,,,,64,,,4
  115. 2155 DATA,,,,,,,,4,
  116. 2160 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READB2(X1,X2,X3):NEXT:NEXT:NEXT
  117. 2165 DATA,,,,1,,,256,,,,,,,,,,,,,4,,,,,,,,,,,,1,,,32,,,1024,,,512,,,,,,,,,,128
  118. 2170 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,,,,,,,,,8,,64,,,,,,
  119. 2180 FORX=1TO14:READB$(X):NEXT
  120. 2185 DATABEKAEMPFE,BENUTZE,BESTECHE,ESSE,FANGE,KUESSE,LESE,LIST,NIMM,OEFFNE
  121. 2190 DATASAGE,TRINKE,VERLIERE,ZERSCHLAGE
  122. 2195 FORX=1TO39:READG$(X):NEXT
  123. 2196 FORX=1TO38:FORY=X+1TO39:IFG$(X)<G$(Y)THEN2198
  124. 2197 V$=G$(X):G$(X)=G$(Y):G$(Y)=V$
  125. 2198 NEXTY:NEXTX
  126. 2200 DATAHAMMELKEULE,SCHLANGEN,HOELLENSTEIN,WACHE,WACHEN,KOBOLD,ZAUBERSTEIN
  127. 2205 DATAGOLD,BOGENSCHUETZE,GHOUL,VAMPIR,HONIG,ZAUBERTRANK,WEIN,SPEER,SCHWERT
  128. 2210 DATASCHILD,PEITSCHE,UNGEHEUER,TONTAFEL,ZAUBERRING,KROETE,FLOETE,TUER,BAER
  129. 2215 DATASILBERDOLCH,WERWOLF,SPIEGEL,FLASCHE,SHADOW,NETZ,ZAUBERER,ZEPTER
  130. 2220 DATASTEINERNE,SAEURE,SCHEMEL,GEGENGIFT,FLASCHENGEIST,HOLZPFLOCK
  131. 2225 X1=1:X2=0:X3=1
  132. 2250 GOSUB21000:IFG>0THENG=G+1:IFG=5THEN23000
  133. 2252 IFZT>0THENZT=ZT+1:IFZT=20THENGOSUB24000
  134. 2260 ZA=ZA+1:GOSUB11000:GOSUB10000:GOSUB9900:SYS704
  135. 2263 IFF1(X1,X2,X3)>127THENJ1=1
  136. 2265 IFJ1=1THENGOSUB30000
  137. 2270 PRINT"";:INPUT"KOMMANDO";K$
  138. 2290 IFK$="N"AND(FGAND1)=1THENX2=X2-1:GOTO2400
  139. 2300 IFK$="S"AND(FGAND2)=2THENX2=X2+1:GOTO2400
  140. 2310 IFK$="W"AND(FGAND4)=4THENX3=X3-1:GOTO2400
  141. 2320 IFK$="O"AND(FGAND8)=8THENX3=X3+1:GOTO2400
  142. 2330 IFK$="H"AND(FGAND16)=16THENX1=X1+1:GOTO2400
  143. 2340 IFK$="R"AND(FGAND32)=32THENX1=X1-1:GOTO2400
  144. 2345 GOSUB3000:IFFE=0THEN2400
  145. 2350 PRINT"NICHT MOEGLICH!":FORX=1TO2000:NEXTX:GOTO2250
  146. 2400 GOSUB12000:GOSUB26000:GOTO2250
  147. 3000 FE=0:IFK$="LIST"THEN7000
  148. 3005 X0=0:FORX=1TOLEN(K$):IFMID$(K$,X,1)=" "THENX0=X
  149. 3010 NEXTX:IFX0=0THENFE=1:RETURN
  150. 3015 K1$=LEFT$(K$,X0-1):K2$=MID$(K$,X0+1,LEN(K$)-X0)
  151. 3020 X0=0:FORX=1TO39:IFK2$=G$(X)ORK2$="SESAMOOPERA"THENX0=X
  152. 3030 NEXTX:IFX0=0THENFE=1:RETURN
  153. 3040 X0=0:FORX=1TO14:IFK1$=B$(X)THENX0=X
  154. 3050 NEXTX:IFX0=0THENFE=1:RETURN
  155. 3060 IFX0>8THEN3090
  156. 3070 ONX0GOSUB3500,4000,4500,5000,5500,6000,6500
  157. 3080 RETURN
  158. 3090 X0=X0-8:ONX0GOSUB7500,8000,8500,9000,9500,13000
  159. 3100 RETURN
  160. 3500 FE=0:S=0:GOSUB26000
  161. 3510 IFK2$=G$(1)AND(F1(X1,X2,X3)AND16384)=16384THEN3530
  162. 3511 IFK2$=G$(2)AND(F2(X1,X2,X3)AND2048)=2048THEN3545
  163. 3512 IFK2$=G$(4)AND(B1(X1,X2,X3)AND32)=32THEN3555
  164. 3513 IFK2$=G$(13)AND(B2(X1,X2,X3)AND256)=256THEN3570
  165. 3514 IFK2$=G$(20)AND(F2(X1,X2,X3)AND32)=32THEN3610
  166. 3515 IFK2$=G$(22)AND(F2(X1,X2,X3)AND256)=256THEN3630
  167. 3516 IFK2$=G$(29)AND(F1(X1,X2,X3)AND8192)=8192THEN3670
  168. 3517 IFK2$=G$(30)AND(F1(X1,X2,X3)AND1024)=1024THEN3705
  169. 3518 IFK2$=G$(31)ORK2$=G$(32)AND(F1(X1,X2,X3)AND128)=128THEN3745
  170. 3519 IFK2$=G$(34)AND(F1(X1,X2,X3)AND2048)=2048THEN3860
  171. 3521 IFK2$=G$(7)AND(F1(X1,X2,X3)AND4096)=4096THEN3925
  172. 3522 IFK2$=G$(26)AND(F2(X1,X2,X3)AND128)=128THEN3960
  173. 3525 FE=1:RETURN
  174. 3530 GOSUB3990:POKEV+21,0:PRINT"[147]DER BAER HAT SICH AUF KEINEN LANGEN"
  175. 3540 PRINT"KAMPF EINGELASSEN."
  176. 3542 PRINT"MIT EINEM EINZIGEN PRANKENHIEB HAT ER"
  177. 3543 PRINT"DICH INS JENSEITS BEFOERDERT.":GOTO55000
  178. 3545 GOSUB3990:POKEV+21,0:PRINT"[147]":X0=0:FORX=1TO4:IFTR$(X)=G$(19)THENX0=X
  179. 3546 NEXTX:IFX0=0THEN3550
  180. 3547 PRINT"DER PFEIL DES BOGENSCHUETZEN HAT NUR DEN SCHILD GETROFFEN."
  181. 3548 FORX=1TO1500:NEXTX:RETURN
  182. 3550 PRINT"LEIDER WAR DER UNHEIMLICHE BOGENSCHUETZE";:PRINT"SCHNELLER."
  183. 3552 PRINT"SEIN MAGISCHER PFEIL HAT DICH GETROFFEN.":GOTO55000
  184. 3555 GOSUB3990:POKEV+21,0:PRINT"[147]"
  185. 3556 PRINT"DA DU DEN ";G$(4);" GEREIZT HAST,"
  186. 3560 PRINT"IST ES NUR SELBSTVERSTAENDLICH, DASS ER"
  187. 3565 PRINT"DICH WIE EIN LAESTIGES INSEKT IN DER"
  188. 3566 PRINT"LUFT ZERRISSEN HAT.":GOTO55000
  189. 3570 GOSUB3990:POKEV+21,0:PRINT"[147]DER KOBOLD HAT ES VORGEZOGEN ZU VER-":PRINT"SCHWINDEN."
  190. 3575 FORX=1TO4:IFTR$(X)=G$(8)THEN3590
  191. 3580 NEXT
  192. 3581 IFX1=0THENB2(1,2,1)=B2(1,2,1)+256
  193. 3582 IFX1=1THENB2(2,3,3)=B2(2,3,3)+256
  194. 3583 IFX1=2THENB2(0,1,2)=B2(0,1,2)+256
  195. 3586 B2(X1,X2,X3)=B2(X1,X2,X3)-256:FORX=1TO2000:NEXTX:RETURN
  196. 3590 PRINT"LEIDER HAT ER DEIN GOLD MITGENOMMEN."
  197. 3591 IFX1=0THENB2(1,2,1)=B2(1,2,1)+256
  198. 3592 IFX1=1THENB2(2,3,3)=B2(2,3,3)+256
  199. 3593 IFX1=2THENB2(0,1,2)=B2(0,1,2)+256
  200. 3595 FORX=1TO4:IFTR$(X)=G$(8)THENTR$(X)=""
  201. 3600 NEXTX:X0=X:GOSUB23200:GOTO3586
  202. 3610 GOSUB3990:POKEV+21,0:PRINT"[147]"
  203. 3611 PRINT"DIE SCHLANGEN HABEN DICH GEBISSEN."
  204. 3615 PRINT"DU BIST VERGIFTET.":PRINT"WENN DU NICHT BALD ETWAS DAGEGEN"
  205. 3620 PRINT"UNTERNIMMST, IST ES AUS.":G=1
  206. 3625 FORX=1TO2500:NEXTX:RETURN
  207. 3630 GOSUB3990:POKEV+21,0:IFK$=G$(37)THEN3655
  208. 3635 PRINT"[147]DER GEHEIMNISVOLLE SHADOW HAT DIR"
  209. 3640 PRINT"SAEMTLICHE LEBENSENERGIE GENOMMEN."
  210. 3645 PRINT"UM DEINE LEBLOSE HUELLE WERDEN SICH DIE"
  211. 3650 PRINT"RATTEN KUEMMERN.":GOTO55000
  212. 3655 X0=0:FORX=1TO4:IFTR$(X)=G$(37)THENX0=X
  213. 3656 NEXTX:IFX0=0THEN3635
  214. 3657 F2(X1,X2,X3)=F2(X1,X2,X3)-256:PRINT"[147]DU HAST DEN GEHEIMNISVOLLEN SHADOW"
  215. 3660 PRINT"VERNICHTET."
  216. 3661 PRINT"LEIDER IST DABEI DER ";G$(37);" AUCH"
  217. 3662 PRINT"VERNICHTET WORDEN.":GOSUB23200:FORX=1TO3000:NEXT:RETURN
  218. 3670 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(39)THEN3685
  219. 3675 PRINT"DAS SCHRECKLICHE UNGEHEUER HAT DICH MIT"
  220. 3680 PRINT"HAUT UND HAAREN GEFRESSEN.":GOTO55000
  221. 3685 X0=0:FORX=1TO4:IFTR$(X)=G$(39)THENX0=X
  222. 3686 NEXTX:IFX0=0THEN3675
  223. 3688 F1(X1,X2,X3)=F1(X1,X2,X3)-8192
  224. 3690 PRINT"DAS ";G$(39);" HAT DAS SCHRECKLICHE"
  225. 3695 PRINT"UNGEHEUER VERNICHTET.":FORX=1TO2000:NEXTX:RETURN
  226. 3705 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(11)THEN3725
  227. 3710 PRINT"DER BLUTRUENSTIGE VAMPIR HAT DICH GEBIS-";:PRINT"SEN..."
  228. 3715 PRINT"DA DU NUN EBENFALLS ZUM VAMPIR WIRST,"
  229. 3720 PRINT"KANNST DU NICHT WEITERSPIELEN.":GOTO55000
  230. 3725 X0=0:FORX=1TO4:IFTR$(X)=G$(11)THENX0=X
  231. 3730 NEXTX:IFX0=0THEN3710
  232. 3735 F1(X1,X2,X3)=F1(X1,X2,X3)-1024:PRINT"DU HAST DEN VAMPIR GEPFAEHLT."
  233. 3740 PRINT"ER IST ZU STAUB ZERFALLEN.":FORX=1TO2000:NEXTX:RETURN
  234. 3745 GOSUB3990:POKEV+21,0:PRINT"[147]":GOSUB33000
  235. 3750 IF(F1(X1,X2,X3)AND256)=256THEN3815
  236. 3755 IF(K$=G$(21)ANDS=1)OR(K$=G$(37)ANDS=2)OR(K$=G$(24)ANDS=0)THEN3775
  237. 3760 IF(F2(X1,X2,X3)AND2)=2THENGOSUB23100:RETURN
  238. 3761 PRINT"DIE WACHE HAT DICH GEFANGEN UND DICH"
  239. 3765 PRINT"IN DEN KERKER GEBRACHT.":X1=0:X2=1:X3=0:FORX=1TO2000:NEXTX:A(0)=-1
  240. 3770 RETURN
  241. 3775 PRINT"DIE WACHE HAT ES VORGEZOGEN, ZU VER-"
  242. 3780 PRINT"SCHWINDEN.":IFK$=G$(24)ANDS=0THENGOSUB23400
  243. 3781 IFK$=G$(37)ANDS=2THENGOSUB29100
  244. 3782 FORX=0TO3:IF(F1(X,1,3)AND128)=128THEN3784
  245. 3783 F1(X,1,3)=F1(X,1,3)+128
  246. 3784 NEXTX:F1(X1,X2,X3)=F1(X1,X2,X3)-128
  247. 3785 IFX1=0ANDX2=1ANDX3=0THEN3795
  248. 3790 FORX=1TO1500:NEXTX:RETURN
  249. 3795 PRINT"DU HAST DIE WACHE, DIE DIR UNTER UM-"
  250. 3800 PRINT"STAENDEN HAETTE HELFEN KOENNEN, VERJAGT.";
  251. 3805 PRINT"NUN MUSST DU BIS AN DEIN LEBENSENDE IM":PRINT"KERKER BLEIBEN.":GOTO55000
  252. 3815 IFK$=G$(37)ANDS=2THEN3825
  253. 3820 GOTO3760
  254. 3825 X0=0:FORX=1TO4:IFTR$(X)=G$(37)THENX0=X
  255. 3830 NEXTX:IFX0=0THEN3760
  256. 3835 PRINT"DU HAST DIE WACHEN VERJAGT."
  257. 3840 PRINT"DABEI IST ABER DER ";G$(37);" ZU"
  258. 3845 PRINT"STAUB ZERBROESELT.":GOSUB23200:F1(X1,X2,X3)=F1(X1,X2,X3)-384
  259. 3850 FORX=1TO3000:NEXT:RETURN
  260. 3860 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(23)THEN3875
  261. 3870 PRINT"DER WERWOLF HAT DICH ZERRISSEN.":GOTO55000
  262. 3875 X0=0:FORX=1TO4:IFTR$(X)=G$(23)THENX0=X
  263. 3880 NEXTX:IFX0=0THEN3870
  264. 3885 PRINT"DU HAST DEN WERWOLF VERNICHTET.":PRINT"DABEI WURDE ABER AUCH DER ";G$(23)
  265. 3886 F1(X1,X2,X3)=F1(X1,X2,X3)-2048
  266. 3890 PRINT"ZERSTOERT.":GOSUB23200:FORX=1TO3000:NEXT:RETURN
  267. 3925 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(23)THEN3940
  268. 3930 PRINT"LEIDER WAR DER GHOUL HUNGRIG, UND HAT"
  269. 3935 PRINT"DICH SOMIT VERSPEIST.":GOTO55000
  270. 3940 X0=0:FORX=1TO4:IFTR$(X)=G$(23)THENX0=X
  271. 3945 NEXTX:IFX0=0THEN3930
  272. 3950 PRINT"DU HAST DEN GHOUL GETOETET.":PRINT"LEIDER IST DABEI AUCH DER ";G$(23)
  273. 3952 PRINT"VERNICHTET WORDEN.":GOSUB23200:F1(X1,X2,X3)=F1(X1,X2,X3)-4096
  274. 3955 FORX=1TO3000:NEXT:RETURN
  275. 3960 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(17)THEN3970
  276. 3965 PRINT"DER STEINERNE HAT DICH MIT EINEM SCHLAG"
  277. 3967 PRINT"SEINER STEINERNEN FAUST ERSCHLAGEN.":GOTO55000
  278. 3970 X0=0:FORX=1TO4:IFTR$(X)=G$(17)THENX0=X
  279. 3972 NEXTX:IFX0=0THEN3965
  280. 3975 PRINT"DIE ";G$(17);" HAT DEN STEINERNEN AUF-"
  281. 3977 PRINT"GELOEST.":GOSUB23200:F2(X1,X2,X3)=F2(X1,X2,X3)-128
  282. 3980 FORX=1TO3000:NEXT:RETURN
  283. 3990 INPUT"WOMIT";K$:X0=0:FORX=1TO39:IFK$=G$(X)THENX0=X
  284. 3995 NEXTX:IFX0=0THEN2350
  285. 3999 RETURN
  286. 4000 POKEV+21,0:PRINT"[147]":IFK2$=G$(5)THEN4040
  287. 4010 IFK2$=G$(16)THEN4090
  288. 4020 IFK2$=G$(36)THEN4190
  289. 4030 FE=1:RETURN
  290. 4040 IF(F2(X1,X2,X3)AND32)=32THEN4060
  291. 4050 GOTO4030
  292. 4060 PRINT"DIE MUSIK HAT DIE SCHLANGEN BERUHIGT."
  293. 4070 PRINT"SIE WERDEN DICH NICHT BEISSEN.":A(7)=-4:FORX=1TO3000:NEXT:RETURN
  294. 4090 X0=0:FORX=1TO4:IFTR$(X)=G$(16)THENX0=X
  295. 4100 NEXTX:IFX0=0THENFE=1:RETURN
  296. 4101 IFX1=3THENFE=1:RETURN
  297. 4102 IF(F2(X1+1,X2,X3)AND16)=0THENFE=1:RETURN
  298. 4110 PRINT"DIE PEITSCHENSCHNUR HAT SICH AN EINEM"
  299. 4120 PRINT"BALKEN AN DER DECKE VERFANGEN. DU BIST"
  300. 4130 PRINT"DARAN NACH OBEN GEKLETTERT.":X1=X1+1
  301. 4140 F2(X1,X2,X3)=F2(X1,X2,X3)-16:FORX=1TO3000:NEXT:RETURN
  302. 4190 X0=0:FORX=1TO4:IFTR$(X)=G$(36)THENX0=X
  303. 4200 NEXTX:IFX0=0THENFE=1:RETURN
  304. 4210 PRINT"UM DICH HERUM WIRD ALLES DUNKEL."
  305. 4211 PRINT"EINE FREMDE MACHT REISST DICH FORT."
  306. 4212 PRINT"DU BIST ENTMATERIALISIERT."
  307. 4220 PRINT"LEIDER HAT SICH DABEI DER ";G$(36):PRINT"IN RAUCH AUFGELOEST."
  308. 4221 X1=INT(RND(1)*3+0):X2=INT(RND(2)*4+0):X3=INT(RND(3)*4+0):K=0
  309. 4230 FORX=1TO5000:NEXT:GOSUB23200:GOSUB26000:RETURN
  310. 4500 POKEV+21,0:IF(F2(X1,X2,X3)AND2)=2AND(F1(X1,X2,X3)AND128)=128THEN4520
  311. 4510 FE=1:RETURN
  312. 4520 X0=0:FORX=1TO4:IFTR$(X)=G$(8)THENX0=X
  313. 4530 NEXTX:IFX0=0THEN4590
  314. 4540 PRINT"[147]DIE WACHE HAT DAS GOLD GENOMMEN UND HAT":PRINT"DICH FREIGELASSEN."
  315. 4550 GOSUB23200:K=0:IFX2=1THENX3=1
  316. 4570 IFX2=4THENX2=3
  317. 4580 FORX=1TO3000:NEXTX:RETURN
  318. 4590 PRINT"[147]DU HAST NICHTS, WOMIT DU DIE WACHE"
  319. 4600 PRINT"BESTECHEN KOENNTEST.":FORX=1TO3000:NEXT:RETURN
  320. 5000 POKEV+21,0:PRINT"[147]":IFK2$=G$(9)ORK2$=G$(12)THEN5020
  321. 5010 FE=1:RETURN
  322. 5020 X0=0:FORX=1TO4:IFTR$(X)=G$(9)ORTR$(X)=G$(12)THENX0=X
  323. 5040 NEXT:IFX0=0THENFE=1:RETURN
  324. 5050 IFK2$=G$(9)THENE$="DIE "+G$(9):GOTO5070
  325. 5060 IFK2$=G$(12)THENE$="DEN "+G$(12)
  326. 5070 GOSUB23200:PRINT"DU HAST ";E$;" WIE EIN TIER":PRINT"VERSCHLUNGEN."
  327. 5080 PRINT"PFUI!!!":FORX=1TO3000:NEXT:RETURN
  328. 5500 POKEV+21,0:PRINT"[147]":IFK2$=G$(13)AND(B2(X1,X2,X3)AND256)=256THEN5530
  329. 5520 FE=1:RETURN
  330. 5530 X0=0:FORX=1TO4:IFTR$(X)=G$(15)THENX0=X
  331. 5540 NEXTX:IFX0=0THEN5590
  332. 5550 PRINT"DU HAST DEN KOBOLD GEFANGEN, BEVOR ER"
  333. 5560 PRINT"VERSCHWINDEN KONNTE.":PRINT"DU HAST IHN ABER WIEDER FREIGELASSEN,"
  334. 5570 PRINT"DA ER DIR GOLD GEGEBEN HAT.":B2(X1,X2,X3)=B2(X1,X2,X3)-256
  335. 5580 B1(X1,X2,X3)=B1(X1,X2,X3)+4:FORX=1TO2000:NEXTX:GOSUB5620:RETURN
  336. 5590 PRINT"DU HATTEST NICHTS, WOMIT DU DEN FLINKEN"
  337. 5600 PRINT"KOBOLD HAETTEST FANGEN KOENNEN.":PRINT"ER IST VERSCHWUNDEN."
  338. 5601 FORX=1TO4:IFTR$(X)=G$(8)THENGOSUB5700
  339. 5602 NEXT
  340. 5610 B2(X1,X2,X3)=B2(X1,X2,X3)-256:FORX=1TO2000:NEXTX:GOSUB5620:RETURN
  341. 5620 IFX1=0THENB2(1,2,1)=B2(1,2,1)+256
  342. 5630 IFX1=1THENB2(2,3,3)=B2(2,3,3)+256
  343. 5640 IFX1=2THENB2(3,3,2)=B2(3,3,2)+256
  344. 5650 IFX1=3THENB2(0,1,2)=B2(0,1,2)+256
  345. 5660 RETURN
  346. 5700 PRINT"LEIDER HAT ER DEIN GOLD MIGENOMMEN.":X0=X:GOSUB23200:RETURN
  347. 6000 POKEV+21,0:PRINT"[147]":IFK2$=G$(14)THEN6020
  348. 6010 FE=1:RETURN
  349. 6020 X0=0:FORX=1TO4:IFTR$(X)=G$(14)THENX0=X
  350. 6030 NEXTX:IFX0=0THEN6010
  351. 6040 PRINT"LEIDER HAT SICH DIE KROETE IN KEINE"
  352. 6050 PRINT"SCHOENE PRINZESSIN VERWANDELT."
  353. 6060 PRINT"DAFUER HAT SIE DICH GEBISSEN, UND DA ES"
  354. 6070 PRINT"SICH UM EINE GIFTIGE ART HANDELTE, HAST"
  355. 6080 PRINT"DU DAS ZEITLICHE GESEGNET.":GOTO55000
  356. 6500 POKEV+21,0:PRINT"[147]":IFK2$=G$(27)THEN6520
  357. 6510 FE=1:RETURN
  358. 6520 X0=0:FORX=1TO4:IFTR$(X)=G$(27)THENX0=X
  359. 6530 NEXTX:IFX0=0THEN6510
  360. 6540 PRINT"S E S A M O O P E R A":FORX=1TO3000:NEXTX
  361. 6550 PRINT"[147]DIE ";G$(27);" IST ZU STAUB ZER-"
  362. 6560 PRINT"FALLEN.":GOSUB23200:FORX=1TO3000:NEXT:RETURN
  363. 7000 POKEV+21,0:PRINT"[147]DU TRAEGST:":X0=0:FORX=1TO4:IFTR$(X)<>""THENX0=X
  364. 7010 NEXTX:IFX0=0THENPRINTTAB(13)"NICHTS":FORX=1TO2000:NEXTX:RETURN
  365. 7020 PRINT"":FORX=1TO4:PRINTTAB(13)TR$(X):NEXTX
  366. 7030 GETA$:IFA$=""THEN7030
  367. 7040 RETURN
  368. 7500 POKEV+21,0:PRINT"[147]":X0=0:FORX=1TO4:IFTR$(X)=""THENX0=X
  369. 7502 NEXTX:IFX0=0THENFE=1:RETURN
  370. 7505 B1=B1(X1,X2,X3):B2=B2(X1,X2,X3)
  371. 7507 IFK2$=G$(10)AND(B2AND1)=1THEN23300
  372. 7508 IFK2$=G$(21)AND(B2AND32)=32THENGOSUB23500:GOTO7780
  373. 7509 IFK2$=G$(8)AND(B1AND4)=4THEN29500
  374. 7510 IFK2$=G$(37)AND(B1AND1)=1THENB1=B1-1:GOTO7770
  375. 7520 IFK2$=G$(5)AND(B1AND2)=2THENB1=B1-2:GOTO7770
  376. 7530 IFK2$=G$(8)AND(B1AND4)=4THENB1=B1-4:GOTO7770
  377. 7540 IFK2$=G$(12)AND(B1AND8)=8THENB1=B1-8:GOTO7770
  378. 7550 IFK2$=G$(3)AND(B1AND16)=16THENB1=B1-16:GOTO7770
  379. 7560 IFK2$=G$(4)AND(B1AND32)=32THENB1=B1-32:GOTO7770
  380. 7570 IFK2$=G$(17)AND(B1AND64)=64THENB1=B1-64:GOTO7770
  381. 7580 IFK2$=G$(14)AND(B1AND128)=128THENB1=B1-128:GOTO7770
  382. 7590 IFK2$=G$(27)AND(B1AND256)=256THENB1=B1-256:GOTO7770
  383. 7600 IFK2$=G$(24)AND(B1AND512)=512THENB1=B1-512:GOTO7770
  384. 7610 IFK2$=G$(9)AND(B1AND1024)=1024THENB1=B1-1024:GOTO7770
  385. 7620 IFK2$=G$(15)AND(B1AND2048)=2048THENB1=B1-2048:GOTO7770
  386. 7630 IFK2$=G$(33)AND(B1AND4096)=4096THENB1=B1-4096:GOTO7770
  387. 7640 IFK2$=G$(23)AND(B1AND8192)=8192THENB1=B1-8192:GOTO7770
  388. 7650 IFK2$=G$(25)AND(B1AND16384)=16384THENB1=B1-16384:GOTO7770
  389. 7670 IFK2$=G$(39)AND(B2AND2)=2THENB2=B2-2:GOTO7780
  390. 7680 IFK2$=G$(38)AND(B2AND4)=4THENB2=B2-4:GOTO7780
  391. 7690 IFK2$=G$(18)AND(B2AND8)=8THENB2=B2-8:GOTO7780
  392. 7700 IFK2$=G$(11)AND(B2AND16)=16THENB2=B2-16:GOTO7780
  393. 7710 IFK2$=G$(21)AND(B2AND2048)=2048THENB2=B2-2048:GOTO7780
  394. 7720 IFK2$=G$(6)AND(B2AND64)=64THENB2=B2-64:GOTO7780
  395. 7730 IFK2$=G$(36)AND(B2AND128)=128THENB2=B2-128:GOTO7780
  396. 7740 IFK2$=G$(16)AND(B2AND512)=512THENB2=B2-512:GOTO7780
  397. 7750 IFK2$=G$(19)AND(B2AND1024)=1024THENB2=B2-1024:GOTO7780
  398. 7760 FE=1:RETURN
  399. 7770 B1(X1,X2,X3)=B1:TR$(X0)=K2$:RETURN
  400. 7780 B2(X1,X2,X3)=B2:TR$(X0)=K2$:RETURN
  401. 8000 POKEV+21,0:PRINT"[147]":IFK2$=G$(3)THEN8040
  402. 8010 IFK2$=G$(28)THEN8190
  403. 8030 FE=1:RETURN
  404. 8040 X0=0:FORX=1TO4:IFTR$(X)=G$(3)THENX0=X
  405. 8050 NEXTX:IFX0=0THEN8030
  406. 8055 TR$(X0)="":GOSUB23200
  407. 8060 IF(F1(X1,X2,X3)AND128)=128THEN8090
  408. 8070 PRINT"DU HAST DIE FLASCHE GEOEFFNET.":PRINT"LEIDER BEFAND SICH EIN FLASCHENGEIST"
  409. 8080 PRINT"DARIN, DER DICH GEFRESSEN HAT.":GOTO55000
  410. 8090 PRINT"DU HAST DIE FLASCHE GEOEFFNET.":IF(F1(X1,X2,X3)AND384)=384THEN8150
  411. 8100 PRINT"IN DER FLASCHE BEFAND SICH EIN FLASCHEN-";
  412. 8110 PRINT"GEIST, DER HERAUSKAM UND DIE WACHE VER-":PRINT"JAGTE."
  413. 8120 PRINT"LEIDER HAT ER IMMER NOCH HUNGER, UND DU"
  414. 8130 PRINT"BIST DAS EINZIG ESSBARE WESEN IN DER":PRINT"UMGEBUNG.":FORX=1TO5000:NEXT:A(11)=0
  415. 8140 B1(X1,X2,X3)=B1(X1,X2,X3)+32:F1(X1,X2,X3)=F1(X1,X2,X3)-128:A(0)=0:RETURN
  416. 8150 PRINT"IN DER FLASCHE BEFAND SICH EIN GEIST,":PRINT"DER DIE WACHEN VERJAGTE."
  417. 8160 PRINT"LEIDER HAT ER IMMER NOCH HUNGER, UND DU"
  418. 8170 PRINT"BIST DAS EINZIG ESSBARE WESEN IN DER":PRINT"UMGEBUNG.":FORX=1TO4000:NEXT:A(11)=0
  419. 8180 B1(X1,X2,X3)=B1(X1,X2,X3)+32:F1(X1,X2,X3)=F1(X1,X2,X3)-384:A(0)=0:RETURN
  420. 8190 IF(F1(X1,X2,X3)AND64)=64ANDTU=0THENPRINT"DIE TUER IST VERSCHLOSSEN.":GOTO8260
  421. 8191 IF(F1(X1,X2,X3)AND64)=64ANDTU=1THENPRINT"O.K.":F1(X1,X2,X3)=F1(X1,X2,X3)-63:GOTO8260
  422. 8200 IF(F2(X1,X2,X3)AND8)=8THEN22000
  423. 8210 IF(F2(X1,X2,X3)AND64)=64THEN8240
  424. 8220 IF(F2(X1,X2,X3)AND512)=512THEN8250
  425. 8225 IF(F2(X1,X2,X3)AND4096)=4096THEN8270
  426. 8230 FE=1:RETURN
  427. 8240 PRINT"DU BIST IN DEN WASSERGRABEN GESTUERZT,":PRINT"UND ERTRUNKEN.":GOTO55000
  428. 8250 PRINT"DIE TUER IST ZUGEMAUERT WORDEN."
  429. 8260 FORX=1TO3000:NEXTX:RETURN
  430. 8270 PRINT"DIESE TUER FUEHRTE INS FREIE.":PRINT"LEIDER KAM GERADE EIN RUDEL HUNGRIGER"
  431. 8271 PRINT"WOELFE VORBEI...":PRINT"DEIN ENDE WAR SCHRECKLICH.":GOTO55000
  432. 8500 POKEV+21,0:PRINT"[147]":IFK2$="SESAMOOPERA"THEN8520
  433. 8510 FE=1:RETURN
  434. 8520 IF(F2(X1,X2,X3)AND1024)=1024THEN8550
  435. 8525 IF(F1(X1,X2,X3)AND64)=0THEN8510
  436. 8530 PRINT"DER ZAUBERSPRUCH HAT DIE MAGISCHE SPERRE";
  437. 8540 PRINT"DER TUER BESEITIGT.":TU=1:GOTO8260
  438. 8550 PRINT"DURCH DEN MAGISCHEN SPRUCH HAT SICH EIN"
  439. 8560 PRINT"GEHEIMGANG GEOEFFNET.":F2(X1,X2,X3)=F2(X1,X2,X3)-1024
  440. 8570 F1(X1,X2,X3)=F1(X1,X2,X3)+1:GOTO8260
  441. 9000 POKEV+21,0:PRINT"[147]":IFK2$=G$(6)THEN9050
  442. 9020 IFK2$=G$(33)THEN9070
  443. 9025 IFK2$=G$(17)THEN9110
  444. 9030 IFK2$=G$(38)THEN9090
  445. 9040 FE=1:RETURN
  446. 9050 TR$=K2$:GOSUB9400:IFG>0THENPRINT"DU BIST GEHEILT.":G=0:GOSUB23200:GOTO8260
  447. 9070 TR$=K2$:GOSUB9400:PRINT"DU BIST DURCH DEN WEIN EINGESCHLAFEN."
  448. 9071 FORX=0TO11:IFA(X)>0THEN9430
  449. 9072 NEXT
  450. 9080 GOSUB23200:PRINT"DIE WACHE HAT DICH GEFUNDEN UND DICH":GOSUB3765:RETURN
  451. 9090 TR$=K2$:GOSUB9400:ZT=1:GOSUB23200
  452. 9100 PRINT"DU FUEHLST DICH SEHR STARK.":FORX=1TO2000:NEXT:RETURN
  453. 9110 TR$=K2$:GOSUB9400:PRINT"DIE ";G$(17);" SCHMECKTE AETZEND..."
  454. 9120 PRINT"LEIDER HAT SICH DEIN MAGEN AUFGELOEST.":GOTO55000
  455. 9400 X0=0:FORX=1TO4:IFTR$(X)=TR$THENX0=X
  456. 9410 NEXTX:IFX0=0THEN2350
  457. 9420 RETURN
  458. 9430 FORX=1TO3000:NEXT:IF(F2(X1,X2,X3)AND2)=2THEN31000
  459. 9435 IF(F2(X1,X2,X3)AND32)=32THEN9450
  460. 9440 RETURN
  461. 9450 PRINT"[147]DA DU EINGESCHLAFEN BIST, KONNTEN DICH"
  462. 9460 PRINT"DIE SCHLANGEN IN ALLER RUHE BEISSEN...":GOTO55000
  463. 9500 POKEV+21,0:PRINT"[147]":X0=0:FORX=1TO39:IFG$(X)=K2$THENX0=X
  464. 9510 NEXTX:IFX0=0THENFE=1:RETURN
  465. 9512 IFX7=8THENFE=1:RETURN
  466. 9515 IFK2$=G$(9)AND(F1(X1,X2,X3)AND2048)=2048THENGOSUB12700:RETURN
  467. 9517 IFK2$=G$(33)AND(B1(X1,X2,X3)AND32)=32THENGOSUB12800:RETURN
  468. 9520 B1=B1(X1,X2,X3):B2=B2(X1,X2,X3)
  469. 9521 IFK2$=G$(8)AND(B1AND4)=4THENB1=B1-4
  470. 9522 IFK2$=G$(24)AND(B1AND512)=512THENB1=B1-512
  471. 9523 IFK2$=G$(9)AND(F1(X1,X2,X3)AND16384)=16384THENGOSUB9800:GOSUB28100:GOTO9660
  472. 9525 IFK2$=G$(12)AND(F1(X1,X2,X3)AND16384)=16384THENGOSUB9800:GOSUB28000:GOTO9660
  473. 9526 IFK2$=G$(8)AND(F1(X1,X2,X3)AND128)=128THENGOSUB9800:GOSUB32000:RETURN
  474. 9527 IFK2$=G$(8)AND(B2AND256)=256THENGOSUB9800:GOSUB32020:RETURN
  475. 9530 IFK2$=G$(37)THENGOSUB9800:B1=B1+1:GOTO9660
  476. 9535 IFK2$=G$(5)THENGOSUB9800:B1=B1+2:GOTO9660
  477. 9540 IFK2$=G$(8)THENGOSUB9800:B1=B1+4:GOTO9660
  478. 9545 IFK2$=G$(12)THENGOSUB9800:B1=B1+8:GOTO9660
  479. 9550 IFK2$=G$(3)THENGOSUB9800:B1=B1+16:GOTO9660
  480. 9555 IFK2$=G$(4)THENGOSUB9800:B1=B1+32:GOTO9660
  481. 9560 IFK2$=G$(17)THENGOSUB9800:B1=B1+64:GOTO9660
  482. 9565 IFK2$=G$(14)THENGOSUB9800:B1=B1+128:GOTO9660
  483. 9570 IFK2$=G$(27)THENGOSUB9800:B1=B1+256:GOTO9660
  484. 9575 IFK2$=G$(24)THENGOSUB9800:B1=B1+512:GOTO9660
  485. 9580 IFK2$=G$(9)THENGOSUB9800:B1=B1+1024:GOTO9660
  486. 9585 IFK2$=G$(15)THENGOSUB9800:B1=B1+2048:GOTO9660
  487. 9590 IFK2$=G$(33)THENGOSUB9800:B1=B1+4096:GOTO9660
  488. 9595 IFK2$=G$(23)THENGOSUB9800:B1=B1+8192:GOTO9660
  489. 9600 IFK2$=G$(25)THENGOSUB9800:B1=B1+16384:GOTO9660
  490. 9610 IFK2$=G$(39)THENGOSUB9800:B2=B2+2:GOTO9670
  491. 9615 IFK2$=G$(38)THENGOSUB9800:B2=B2+4:GOTO9670
  492. 9620 IFK2$=G$(18)THENGOSUB9800:B2=B2+8:GOTO9670
  493. 9625 IFK2$=G$(11)THENGOSUB9800:B2=B2+16:GOTO9670
  494. 9630 IFK2$=G$(21)THENGOSUB9800:B2=B2+2048:GOTO9670
  495. 9635 IFK2$=G$(6)THENGOSUB9800:B2=B2+64:GOTO9670
  496. 9640 IFK2$=G$(36)THENGOSUB9800:B2=B2+128:GOTO9670
  497. 9645 IFK2$=G$(16)THENGOSUB9800:B2=B2+512:GOTO9670
  498. 9650 IFK2$=G$(19)THENGOSUB9800:B2=B2+1024:GOTO9670
  499. 9655 FE=1:RETURN
  500. 9660 B1(X1,X2,X3)=B1:RETURN
  501. 9670 B2(X1,X2,X3)=B2:RETURN
  502. 9800 X0=0:FORX=1TO4:IFTR$(X)=K2$THENX0=X
  503. 9810 NEXTX:IFX0=0THEN2350
  504. 9820 GOSUB23200:RETURN
  505. 9900 R$="MOEGLICHE RICHTUNGEN: "
  506. 9910 IF(FGAND1)=1THENR$=R$+"-N"
  507. 9920 IF(FGAND2)=2THENR$=R$+"-S"
  508. 9930 IF(FGAND4)=4THENR$=R$+"-W"
  509. 9940 IF(FGAND8)=8THENR$=R$+"-O"
  510. 9950 IF(FGAND16)=16THENR$=R$+"-H"
  511. 9960 IF(FGAND32)=32THENR$=R$+"-R"
  512. 9970 R$=R$+"-":PRINT""I$:PRINTR$:RETURN
  513. 10000 PRINT"[147]":FG=F1(X1,X2,X3):SYS704
  514. 10002 GOSUB10700
  515. 10003 IF(FGAND64)=64THENGOSUB10100
  516. 10004 IF(F2(X1,X2,X3)AND512)=512THENGOSUB10100
  517. 10005 IF(FGAND1)=1THENGOSUB10100
  518. 10006 IF(F2(X1,X2,X3)AND64)=64THENGOSUB10300
  519. 10007 IF(F2(X1,X2,X3)AND4096)=4096THENGOSUB10300
  520. 10015 IF(FGAND4)=4THENGOSUB10200
  521. 10020 IF(FGAND8)=8THENGOSUB10300
  522. 10025 IF(FGAND16)=16THENGOSUB10400
  523. 10030 IF(FGAND32)=32THENGOSUB10500
  524. 10040 RETURN
  525. 10100 FORX=49678TO49690:POKEX,100:NEXTX:POKE49678,76
  526. 10110 S=0:POKE49690,122:FORX=1TO5:POKE49650-S,103:S=S+40:NEXTX
  527. 10120 FORX=49451TO49453:POKEX,100:NEXTX
  528. 10130 S=0:FORX=1TO5:POKE49654-S,101:S=S+40:NEXTX
  529. 10140 POKE49694,76:FORX=49695TO49705:POKEX,100:NEXTX:POKE49705,122
  530. 10150 RETURN
  531. 10200 POKE49717,78:POKE49756,78:POKE49873,78:POKE49912,78
  532. 10210 S=0:FORX=1TO13:POKE49833-S,103:S=S+40:NEXTX
  533. 10220 S=0:POKE49354,77:POKE49395,77:FORX=1TO9:POKE49435+S,103:S=S+40:NEXTX
  534. 10230 POKE49755,122:POKE49754,100
  535. 10240 POKE49435,80:POKE49434,99
  536. 10250 RETURN
  537. 10300 POKE49746,77:POKE49787,77:POKE49910,77:POKE49951,77
  538. 10310 S=0:FORX=1TO13:POKE49870-S,101:S=S+40:NEXTX:POKE49389,78:POKE49428,78
  539. 10320 S=0:FORX=1TO9:POKE49468+S,101:S=S+40:NEXTX
  540. 10330 POKE49788,76:POKE49789,100:POKE49468,79:POKE49469,99
  541. 10340 R=0:RETURN
  542. 10400 FORX=49202TO49208:POKEX,100:NEXTX
  543. 10410 POKE49242,77:POKE49283,77:POKE49248,78:POKE49287,78
  544. 10420 POKE49243,77:POKE49247,78
  545. 10430 S=0:FORX=1TO7:POKE49244+S,93:POKE49244+S+40,107:S=S+80:NEXTX
  546. 10440 S=0:FORX=1TO7:POKE49246+S,93:POKE49246+S+40,115:S=S+80:NEXTX
  547. 10450 S=0:FORX=1TO7:POKE49245+S+40,67:S=S+80:NEXTX
  548. 10460 RETURN
  549. 10500 FORX=49937TO49943:POKEX,99:NEXTX
  550. 10510 POKE49897,78:POKE49858,78:POKE49903,77:POKE49862,77:POKE49898,78:POKE49902,77
  551. 10520 S=0:FORX=1TO2:POKE49899-S,66:POKE49899-S-40,107:S=S+80:NEXTX
  552. 10530 S=0:FORX=1TO2:POKE49901-S,66:POKE49901-S-40,115:S=S+80:NEXTX
  553. 10540 S=0:FORX=1TO2:POKE49900-S-40,67:S=S+80:NEXTX
  554. 10550 RETURN
  555. 10700 S=0:FORX=1TO6:POKE49152+S,77:S=S+41:NEXT
  556. 10702 S=0:FORX=1TO6:POKE49191+S,78:S=S+39:NEXTX
  557. 10704 FORX=49398TO49425:POKEX,99:NEXTX
  558. 10710 S=0:FORX=1TO8:POKE49398+S,101:S=S+40:NEXTX
  559. 10715 S=0:FORX=1TO8:POKE49425+S,103:S=S+40:NEXTX:POKE49398,79:POKE49425,80
  560. 10720 IF(FGAND1)=1THEN10730
  561. 10725 FORX=49678TO49705:POKEX,100:NEXTX:POKE49678,76:POKE49705,122
  562. 10730 IF(FGAND4)=4THEN10740
  563. 10735 S=0:FORX=1TO6:POKE49717+S,78:S=S+39:NEXTX
  564. 10740 IF(FGAND8)=8THEN10750
  565. 10745 S=0:FORX=1TO6:POKE49746+S,77:S=S+41:NEXTX
  566. 10750 RETURN
  567. 11000 POKEV+21,0:FG=F1(X1,X2,X3):F2=F2(X1,X2,X3):B1=B1(X1,X2,X3):B2=B2(X1,X2,X3)
  568. 11001 POKEV+23,0:POKEV+29,0
  569. 11005 I$="":S7=50168:X7=0:M=0
  570. 11010 IF(FGAND64)=64THENI$=I$+" "+G$(28)
  571. 11020 IF(FGAND128)=128THENI$=I$+" "+G$(31):M=20:F=0:GOSUB11500:A(0)=A(0)+1
  572. 11030 IF(FGAND256)=256THENM=20:F=0:GOSUB11500
  573. 11040 IF(FGAND512)=512THENI$=I$+" "+G$(35):M=22:F=0:GOSUB11530:GOTO29000
  574. 11050 IF(FGAND1024)=1024THENI$=I$+" "+G$(30):M=18:F=0:GOSUB11530:A(2)=A(2)+1
  575. 11060 IF(FGAND2048)=2048THENI$=I$+" "+G$(34):M=24:F=0:GOSUB11530:A(3)=A(3)+1
  576. 11070 IF(FGAND4096)=4096THENI$=I$+" "+G$(7):M=26:F=7:GOSUB11500:A(4)=A(4)+1
  577. 11080 IF(FGAND8192)=8192THENI$=I$+" "+G$(29):M=33:F=5:GOSUB11550:A(5)=A(5)+1
  578. 11090 IF(FGAND16384)=16384THENI$=I$+" "+G$(1):M=31:F=0:GOSUB11500:A(6)=A(6)+1
  579. 11100 IF(F2AND1)=1THENI$=I$+"KOBOLDHOEHLE"+" "+G$(8):M=29:F=7:GOSUB11520:RETURN
  580. 11110 IF(F2AND2)=2THENI$=I$+" "+"KERKER":K=K+1:IFK=4THEN31000
  581. 11120 IF(F2AND4)=4THENI$=I$+"SCHATZKAMMER"+" "+G$(8):M=29:F=7:GOSUB11520:RETURN
  582. 11130 IF(F2AND8)=8THENI$=I$+" "+G$(28)
  583. 11140 IF(F2AND16)=16THENX1=X1-1:GOSUB27000:GOTO11005
  584. 11150 IF(F2AND32)=32THENI$=I$+" "+G$(20):M=32:F=0:GOSUB11520:A(7)=A(7)+1
  585. 11160 IF(F2AND64)=64THENI$=I$+" "+G$(28)
  586. 11170 IF(F2AND128)=128THENI$=I$+" "+G$(26):M=41:F=0:GOSUB11530:A(8)=A(8)+1
  587. 11175 IF(F2AND256)=256THENI$=I$+" "+G$(22):M=37:F=1:GOSUB11530:A(9)=A(9)+1
  588. 11180 IF(F2AND512)=512THENI$=I$+" "+G$(28)
  589. 11190 IF(F2AND2048)=2048THENI$=I$+" "+G$(2):M=35:F=5:GOSUB11500:A(10)=A(10)+1
  590. 11200 IF(F2AND4096)=4096THENI$=I$+" "+G$(28):RETURN
  591. 11210 IF(B1AND1)=1THENI$=I$+" "+G$(37):M=36:F=11:GOSUB11580
  592. 11220 IF(B1AND2)=2THENI$=I$+" "+G$(5):M=39:F=0:GOSUB11500
  593. 11230 IF(B1AND4)=4THENI$=I$+" "+G$(8):M=29:F=7:GOSUB11500
  594. 11240 IF(B1AND8)=8THENI$=I$+" "+G$(12):M=40:F=7:GOSUB11580
  595. 11245 IF(B1AND16)=16THENI$=I$+" "+G$(3):M=30:F=1:GOSUB11580
  596. 11250 IF(B1AND32)=32THENI$=I$+" "+G$(4):M=47:F=5:GOSUB11500:A(11)=A(11)+1
  597. 11260 IF(B1AND64)=64THENI$=I$+" "+G$(17):M=46:F=0:GOSUB11500
  598. 11270 IF(B1AND128)=128THENI$=I$+" "+G$(14):M=44:F=5:GOSUB11580
  599. 11280 IF(B1AND256)=256THENI$=I$+" "+G$(27):M=58:F=11:GOSUB11580
  600. 11290 IF(B1AND512)=512THENI$=I$+" "+G$(24):M=61:F=0:GOSUB11500
  601. 11300 IF(B1AND1024)=1024THENI$=I$+" "+G$(9):M=56:F=0:GOSUB11500
  602. 11310 IF(B1AND2048)=2048THENI$=I$+" "+G$(15):M=57:F=1:GOSUB11500
  603. 11320 IF(B1AND4096)=4096THENI$=I$+" "+G$(33):M=28:F=2:GOSUB11500
  604. 11330 IF(B1AND8192)=8192THENI$=I$+" "+G$(23):M=59:F=11:GOSUB11500
  605. 11340 IF(B1AND16384)=16384THENI$=I$+" "+G$(25):M=49:F=7:GOSUB11500
  606. 11345 IF(B2AND1)=1THENI$=I$+" "+G$(10):F=2:M=48:GOSUB11580
  607. 11350 IF(B2AND2)=2THENI$=I$+" "+G$(39):M=50:F=1:GOSUB11500
  608. 11360 IF(B2AND4)=4THENI$=I$+" "+G$(38):M=60:F=0:GOSUB11500
  609. 11370 IF(B2AND8)=8THENI$=I$+" "+G$(18):M=51:F=0:GOSUB11500
  610. 11380 IF(B2AND16)=16THENI$=I$+" "+G$(11):M=54:F=0:GOSUB11580
  611. 11390 IF(B2AND32)=32THENI$=I$+" "+G$(21):M=45:F=11:GOSUB11500
  612. 11400 IF(B2AND64)=64THENI$=I$+" "+G$(6):M=52:F=0:GOSUB11500
  613. 11410 IF(B2AND128)=128THENI$=I$+" "+G$(36):M=53:F=1:GOSUB11580
  614. 11420 IF(B2AND256)=256THENI$=I$+" "+G$(13):M=21:F=0:GOSUB11580
  615. 11430 IF(B2AND512)=512THENI$=I$+" "+G$(16):M=43:F=0:GOSUB11500
  616. 11440 IF(B2AND1024)=1024THENI$=I$+" "+G$(19):M=27:F=0:GOSUB11500
  617. 11445 IF(B2AND2048)=2048THENI$=I$+" "+G$(21):M=55:F=0:GOSUB11500
  618. 11450 RETURN
  619. 11500 POKEV+29,PEEK(V+29)+2^X7:POKEV+23,PEEK(V+29)
  620. 11501 POKES7+X7,M+176:POKEV+21,PEEK(V+21)+2^X7:POKEV+39+X7,F:X7=X7+1:RETURN
  621. 11520 POKEV+29,0:POKEV+23,0:FORZZ=1TO8:GOSUB11501:NEXT:RETURN
  622. 11530 POKES7+X7,M+1+176:POKES7+X7+1,M+176:POKEV+29,3:POKEV+23,3
  623. 11531 POKEV+2,210:POKEV+3,185:POKEV,210:POKEV+1,148
  624. 11535 POKEV+21,PEEK(V+21)+2^X7+2^(X7+1):POKEV+39+X7,F:POKEV+39+X7+1,F
  625. 11540 POKEV+X7+2,PEEK(V+X7):POKEV+X7+3,PEEK(V+X7+1)-42:X7=X7+2:J1=1:RETURN
  626. 11550 POKES7,M+176:POKES7+1,M+1+176:POKES7+2,238:POKES7+3,239:POKEV+23,255:POKEV+29,255
  627. 11560 POKEV+21,15:FORX=0TO3:POKEV+39+X,5:NEXT:POKEV+6,250:POKEV+7,167
  628. 11570 POKEV+4,202:POKEV+5,167:POKEV+2,154:POKEV+3,167:POKEV,154:POKEV+1,125:RETURN
  629. 11580 GOSUB11501:RETURN
  630. 12000 X0=0:FORX=0TO11:IFA(X)>0THENX0=X+1
  631. 12010 NEXTX:IFX0=0THENRETURN
  632. 12015 POKEV+21,0:PRINT"[147]"
  633. 12020 ONX0GOSUB12900,3910,3710,3870,3930,3675,12500,3611,3965,3635,12600,3556
  634. 12025 FORX=0TO11:A(X)=0:NEXT:RETURN
  635. 12500 PRINT"DER BAER HAT DICH GEFRESSEN.":GOTO55000
  636. 12600 X0=0:FORX=1TO4:IFTR$(X)=G$(19)THENX0=X
  637. 12610 NEXT:IFX0=0THEN3550
  638. 12620 GOSUB3547:RETURN
  639. 12700 X0=0:FORX=1TO4:IFTR$(X)=K2$THENX0=X
  640. 12710 NEXT:IFX0=0THENRETURN
  641. 12720 PRINT"DER ";G$(34);" HAT DIE ";G$(9);" GE-"
  642. 12730 PRINT"FRESSEN. EINSTWEILEN IST ER SATT.":PRINT"ER WIRD DICH NICHT BEHELLIGEN."
  643. 12740 TR$(X0)="":FORX=1TO4:IFTR$(X)=""THENTR$(X)=TR$(X+1)
  644. 12750 NEXT:A(3)=-4:FORX=1TO3000:NEXT:RETURN
  645. 12800 X0=0:FORX=1TO4:IFTR$(X)=K2$THENX0=X
  646. 12810 NEXT:IFX0=0THENRETURN
  647. 12820 PRINT"DER FLASCHENGEIST HAT DEN WEIN GEROCHEN,"
  648. 12830 PRINT"UND IST IN DER FLASCHE VERSCHWUNDEN."
  649. 12840 PRINT"ER IST ZUM WEINGEIST GEWORDEN.":GOSUB23200
  650. 12850 PRINT"NUN IST ER IN ASBACH URALT ANZUFINDEN!"
  651. 12860 B1(X1,X2,X3)=B1(X1,X2,X3)-32:A(11)=-1:FORX=1TO4000:NEXT:RETURN
  652. 12900 IF(X1=0ANDX2=1ANDX3=1)OR(X1=0ANDX2=3ANDX3=3)THENA(0)=0:RETURN
  653. 12910 GOSUB3760:RETURN
  654. 13000 POKEV+21,0:PRINT"[147]":IFK2$=G$(18)THEN13025
  655. 13010 IFK2$=G$(25)THEN 13050
  656. 13015 IFK2$=G$(28)THEN13100
  657. 13020 FE=1:RETURN
  658. 13025 X0=0:FORX=1TO4:IFTR$(X)=G$(18)THENX0=X
  659. 13026 NEXTX:IFX0=0THENFE=1:RETURN
  660. 13027 GOSUB23200
  661. 13030 PRINT"DU HAST DEN ";G$(18);" ZERSCHLAGEN.":B2(X1,X2,X3)=B2(X1,X2,X3)+16
  662. 13040 FORX=1TO3000:NEXTX:RETURN
  663. 13050 X0=0:FORX=1TO4:IFTR$(X)=G$(25)THENX0=X
  664. 13060 NEXTX:IFX0=0THENFE=1:RETURN
  665. 13070 PRINT"DU HAST DEN ";G$(25);" ZERSCHLAGEN."
  666. 13080 GOSUB23200:FORX=1TO3000:NEXT:RETURN
  667. 13100 IFZT=0THENPRINT"DAZU FEHLT DIR LEIDER DIE NOETIGE KRAFT.";:GOTO13080
  668. 13110 PRINT"DANK DEINER STAERKE KONNTEST DU DIE":PRINT"MAUER ZERSCHLAGEN."
  669. 13120 F2(X1,X2,X3)=F2(X1,X2,X3)-512:F1(X1,X2,X3)=F1(X1,X2,X3)+1:GOTO13080
  670. 15000 POKEV+21,0:PRINT"[147]DER MAGISCHE BLITZ DES ZAUBERES IST VON"
  671. 15010 PRINT"DEINEM ";G$(25);" ABGEPRALLT, UND HAT DEN"
  672. 15020 PRINT"ZAUBERER SELBER GETROFFEN.":PRINT"EIN FUERCHTERLICHER SCHREI, EINE GRELLE"
  673. 15030 PRINT"LICHEXPLOSION...":PRINT"DER ZAUBERER IST VERNICHTET!!!"
  674. 15040 F1(X1,X2,X3)=F1(X1,X2,X3)-512
  675. 15050 FORX=1TO8000:NEXT:GOTO2250
  676. 20000 POKEV+21,0:POKE887,9:SYS828:PRINT"[147][144]DURCH DAS ZERSCHLAGEN DER FLASCHE HAST"
  677. 20010 PRINT"DU EINE MAGISCHE KETTENREAKTION AUSGE-"
  678. 20020 PRINT"LOEST."
  679. 20030 PRINT"EIN WIRBELWIND ERGREIFT DICH UND TRAEGT"
  680. 20040 PRINT"DICH FORT."
  681. 20050 PRINT"MOEGE DIE MACHT MIT DIR SEIN...":GOTO2100
  682. 21000 POKEV,255:POKEV+1,165:POKEV+2,205:POKEV+3,165:POKEV+4,155:POKEV+5,165
  683. 21010 POKEV+6,105:POKEV+7,165:POKEV+8,55:POKEV+9,165:POKEV+10,230:POKEV+11,170
  684. 21020 POKEV+12,180:POKEV+13,170:POKEV+14,130:POKEV+15,170:RETURN
  685. 22000 POKEV+21,0:PRINT"[147][144]":GOSUB25000:FORX=1TO40:PRINT" ";:NEXT:PRINT"[146]DU BIST IM FREIEN."
  686. 22005 FORX=0TO4000:NEXT
  687. 22010 PRINT"DICHTE NEBEL UMWALLEN DAS SCHLOSS,"
  688. 22020 FORX=1TO1000:POKE49152+INT(RND(1)*799+0),102:NEXT
  689. 22030 PRINT"DIE DAS ALTE GEMAEUER ZERFRESSEN UND IN":PRINT"RAUCH AUFLOESEN."
  690. 22040 FORX=1TO1000:POKE49152+INT(RND(1)*799+0),32:NEXT:FORX=1TO1000:NEXT:PRINT"[147]"
  691. 22050 PRINT"[146]DAS ADVENTURE IST GELOEST."
  692. 22055 PRINT"DU HAST DEIN VOLK GERETTET UND HAST"
  693. 22056 PRINT"DICH ALS WAHRER KOENIG ERWIESEN."
  694. 22060 PRINT"ES WURDEN"ZA"SCHRITTE BENOETIGT.":END
  695. 23000 POKEV+21,0:PRINT"[147]DAS SCHLANGENGIFT HAT DICH GETOETET.":GOTO55000
  696. 23100 IFK1$<>"BEKAEMPFE"THENRETURN
  697. 23105 PRINT"VORSICHT!":PRINT"DIE WACHE IST SEHR SCHLECHT GELAUNT."
  698. 23110 PRINT"WENN DU SIE WEITER SO AERGERST, WAERE ES";
  699. 23120 PRINT"MOEGLICH, DASS DU IN DER FOLTERKAMMER":PRINT"LANDEST."
  700. 23130 FORX=1TO4000:NEXT:RETURN
  701. 23200 TR$(X0)="":FORX=1TO3:FORY=X+1TO4:IFTR$(X)>TR$(Y)THEN23220
  702. 23210 V$=TR$(X):TR$(X)=TR$(Y):TR$(Y)=V$
  703. 23220 NEXTY:NEXTX:GOSUB23600:RETURN
  704. 23300 PRINT"DIE MAGISCHEN KRAEFTE DES FLAMMENDEN"
  705. 23310 PRINTG$(10);:PRINT"S HABEN DICH VERNICHTET.":GOTO55000
  706. 23400 PRINT"LEIDER ZERBRACH DABEI AUCH DER ";G$(24);".":GOSUB23200:RETURN
  707. 23500 IFZT>0THEN23540
  708. 23510 PRINT"DAS ";G$(21);" STECKT ZU TIEF.":K2$=""
  709. 23520 PRINT"DU BIST ZU SCHWACH, UM ES RAUSZUZIEHEN.":FORX=1TO3000:NEXT:RETURN
  710. 23540 B2=B2-32:PRINT"DANK DEINER STAERKE KONNTEST DU DAS"
  711. 23550 PRINTG$(21);:PRINT" HERAUSZIEHEN.":FORX=1TO2500:NEXT:RETURN
  712. 23600 FORX=1TO3:FORY=X+1TO4:IFTR$(X)=TR$(Y)THENTR$(Y)=""
  713. 23610 NEXT:NEXT:RETURN
  714. 24000 POKEV+21,0:PRINT"[147]DIE WIRKUNG DES ZAUBERTRANKS HAT NACHGE-":PRINT"LASSEN."
  715. 24010 PRINT"DU BIST WIEDER SCHWACH.":FORX=1TO3000:NEXT:RETURN
  716. 25000 PRINT""," [169][223]",,"[157][169][223]":PRINT,"[169]  [223]"SPC(14)"[169]  [223]"
  717. 25010 PRINT,"[161]  [182]"SPC(14)"[161]  [182]"
  718. 25020 PRINT,"[161] [161][182]"SPC(14)"[161] [161][182]"
  719. 25030 PRINT,"[161] [161][182]"SPC(14)"[161] [161][182]"
  720. 25035 PRINT,"[161]  [182][146][172][187][172][187][172][187][172][187][172][187][172][187][172][187][161]  [182]"
  721. 25040 PRINT,"[161]                    [182]"
  722. 25045 PRINT,"[161]                    [182]"
  723. 25050 PRINT,"[161]                    [182]"
  724. 25055 PRINT,"[161]                    [182]"
  725. 25060 PRINT,"[161]         [182][161]        [182]"
  726. 25065 PRINT,"[161]         [182][161]        [182]"
  727. 25070 PRINT,"[161]         [182][161]        [182]":FORX=1TO40:PRINT" ";:NEXTX:RETURN
  728. 26000 FORX=0TO11:IFA(X)>0THENA(X)=0
  729. 26010 NEXT:RETURN
  730. 27000 POKEV+21,0:PRINT"[147]DU BIST AUF EINE FALLTUER GETRETEN."
  731. 27010 PRINT"ZUM GLUECK HAST DU DEN STURZ GUT UEBER-":PRINT"STANDEN."
  732. 27020 FG=F1(X1,X2,X3):F2=F2(X1,X2,X3):FORX=1TO3000:NEXT:RETURN
  733. 28000 PRINT"DER BAER HAT SICH UEBER DEN HONIG HER-":PRINT"GEMACHT.":GOSUB23200
  734. 28010 PRINT"ER IST ZU SEHR MIT DEM HONIG BESCHAEF-"
  735. 28020 PRINT"TIGT, ALS DASS DU FUER IHN INTERESSANT":PRINT"WAERST.":A(6)=-5
  736. 28030 FORX=1TO3500:NEXT:RETURN
  737. 28100 PRINT"DER BAER HAT DIE ";G$(9)
  738. 28110 PRINT"GEFRESSEN.":PRINT"EINSTWEILEN IST ER SATT.":A(6)=-3:GOTO28030
  739. 29000 GOSUB10000:GOSUB9900
  740. 29001 FORX=1TO5000:NEXT:X0=0:FORX=1TO4:IFTR$(X)=G$(25)THENX0=X
  741. 29010 NEXT:IFX0=0THEN29030
  742. 29020 GOTO15000
  743. 29030 POKEV+21,0:PRINT"[147]DER ZAUBERER HAT DICH MIT EINEM"
  744. 29040 PRINT"MAGISCHEN BLITZ GETOETET.":GOTO55000
  745. 29100 PRINT"DABEI IST ABER DER ";G$(37);" ZU"
  746. 29110 PRINT"STAUB ZERBROESELT.":GOSUB23200:RETURN
  747. 29500 IF(F2(X1,X2,X3)AND1)=1OR(F2(X1,X2,X3)AND4)=4THEN29520
  748. 29510 GOTO7510
  749. 29520 GOTO7770
  750. 30000 PRINT"";:PRINT"^_#":PRINT"$%&"
  751. 30010 PRINT"'()":J1=0:PRINT"";
  752. 30020 PRINT"^_#":PRINT"$%&":PRINT"'()":RETURN
  753. 31000 POKEV+21,0:POKE50168,240:POKE50169,241:POKE50170,242:POKEV+21,7:POKEV+29,7:POKEV+23,7
  754. 31010 POKEV+2,150:POKEV+3,165:POKEV,150:POKEV+1,123:POKEV+4,198:POKEV+5,165
  755. 31020 POKEV+39,0:POKEV+40,0:POKEV+41,0
  756. 31030 PRINT"[147]DIE WACHE HAT DICH DEM HENKER UEBERGE-":PRINT"BEN.":GOTO55000
  757. 32000 POKEV+21,0:PRINT"[147]DIE WACHE HAT SICH DAS GOLD UNTER DEN"
  758. 32010 PRINT"NAGEL GERISSEN.":GOSUB26000:FORX=1TO3000:NEXT:RETURN
  759. 32020 POKEV+21,0:PRINT"[147]DER KOBOLD HAT DAS GOLD AN SICH GENOM-"
  760. 32030 PRINT"MEN.":GOSUB26000:FORX=1TO3000:NEXT:RETURN
  761. 33000 X0=0:FORX=1TO4:IFTR$(X)=G$(21)ANDK$=G$(21)THENX0=X:S=1
  762. 33010 NEXT:IFX0<>0THENRETURN
  763. 33020 X0=0:FORX=1TO4:IFTR$(X)=G$(24)ANDK$=G$(24)THENX0=X:S=0
  764. 33030 NEXT:IFX0<>0THENRETURN
  765. 33040 X0=0:FORX=1TO4:IFTR$(X)=G$(37)ANDK$=G$(37)THENX0=X:S=2
  766. 33050 NEXT:IFX0<>0THENRETURN
  767. 33060 GOTO2350
  768. 55000 PRINT"SO SCHNELL KANN EIN ABENTEUER ENDEN.":END
  769.